program pgm (input, output) ;
		
	var
		int:integer;
		dou:real;
	
	begin
		writeln("Exemple de boucles");
		int := 5 + ( 3 * 6 ) - 9;
		write("Valeur de int ");
		writeln(int);

		dou := 9.0 / 4;
		write("Valeur de dou ");
		writeln(dou);

		while int > -7 do
			begin
				int := int - 3;
				writeln(int);
			end;

		writeln;
		writeln("Merci de votre attention !");
		
	end.




































